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1 Apple /// EXERSOS source code 

2 Written by Apple Computer in Business BASIC (1981/1982) f 



5 1000 REM — ExerSOS xl.0 - Jeff /Don/Bob. ^ S 0> \ W ^ 3> 

7 ^™ f 5 ,^ 1 *'^ ( 40 >'P ath 5(40),lev(40),buffer$(256),qw$(41) < 

8 n | J " Create;-:n$(2)-»De S troy--n$(3)-"Rename»:n$(4)-«Set File Info" = 
o n f 5 = Ge t_File Info»:n$(6)-»Volurae»:n$(7)-»Set Prefix" " O 

in \oX% n f ^r'^ft Pref "":«S(9)-"Open":n$(10)-"New Lin¥":n$(ll)-"Read" _j 

i? iSfS n ! ^ = "Write":n$(13)-"Clo S e":n$(14)-"Flush":n$(15)-"Set Mark" 7* 

11 1060 n$<16)-Get_Mark":n$<17)-Set EOF" :n$ (18) -"Get EOF" :n$ (19) -"Set Level" ^ 

12 1070 n$ (20) — "Get_Level" :n$ (23)— "D Status" 11 ^t_Level ^ 
^ ^2 n $<24)-"D_Control":n$<25)— Get Dev Num" :n$ (26) — "D Info" 

n$(27)-"Request_Seg":n$ (28) -"Find Seg":n$ (29) -"Change Seg" "J> 

16 HZ « " ^ e H eg - Inf °? n$ <31>-"Get>g_Num" :n$ (32) -Release Seg" ^ 

w » n f 33 = Set_Fence":n$(34)— Get_Fence":n$(35)-"Set Time" CD 

18 JJSS ™ ' ?1 >t -T 1,ne ^ n$<37) "" Get - Analo 5" :n $ <38) -Display Directory" 

19 1140 " n- SP f aY /2S^ o lle Table " :n $ < 4 "> ""Display Active Memory Segments" 
J.S 1140 n$ (41) -"Display /Edit Contents of Data Buffer" 

?? ^?<i>-" C0 " :< J w 9(2)-"Cl":qw$(3)-"C2":qw$(4)-"C3":qw$(5)-"C4" 

97 « ^ f :" C5 " :qW$ (7) - " C6 " : ^* $ < 8 > -" C7 " : ^ < 9 > -"C8" = 10) -"C9- 

22 1170 qw$ (11) — CA" :qw$ (12) — CB" : qw$ (13) -"CC" :qw$ (14) —CD" • owS <15> — CE" 

23 1180 qw$ (16) -CF" :qw$ (17) -D0" :qV$ 18 -Dl" 2w$ 19 -D2" ■%! 20 -D3» 
IX \Ml «»"|(23)-82-:qw$(2«)-83-s5»* 25 -84":q^$ 26 -55- q£$ 2? -40" 
A \£l V t 28)-41":q„$(29)-42":qw$(30)-43":q„$ 31 -44":c£$ 3 -45" 
71 ^ ^ -"60":qw$(34)-"61":qw$(35)-62":qV»$(36)-63": q ^$ 37 -e!" 
27 1220 qw$(38)— l":qw$(39)— 2":qw$<40)— 3":qw$(41)— 4" 

ll iff« videof f $-CHR$ (14) : videon$-CHR$ (15) :clrline$=CHR$ (30) :bell$=CHR$ (7) 

11 \l¥L "Parrow=ll :downarrow=10:leftarrow-8: rightarrow-21 : escape-27 : retrn-13 
31° TEXiTnOME: PR^rvid^f f f $ +CHR$ < lef ta "°»> + <=HRS (rightarrow) 

32 1270 WINDOW 1,1 TO 80, 5 : INVERSE: HOME: NORMAL 

33 1280 WINDOW 3,2 TO 78, 4 :H0ME: VPOS-2 :HPOS=30 

34 1290 PRINT"** ExerSOS 1.0 **";videon$ A c 

35 1300 ON ERR GOTO 1350 rf A. . \& 

36 1310 INVOKE "tool, code", "screen, code" <A fA V .Xt* X* 

37 1320 OFF ERR V tfST 

38 1330 PERFORM findbuffer V 

39 1340 PERFORM geterror (@error%) : IF error%-0 THEN 1370 

4? 1360 S^OS^^ CANN0T ALL0CATE 1/0 BUFFER **" 

42 1370 REM — paint the main menu — 

43 1380 PRINT videoff$ 

44 1390 WINDOW 1,1 TO 80, 24 : INVERSE: HOME 

45 1400 HPOS=4:PRINT"File Calls"; :HPOS«25: PRINT" Device Calls"; 

\l All Snof^o : ^ INT " Mem ° ry c ^ls";:HPOS-64:PRINT"Utility Calls" 

47 1420 HPOS=43:VPOS-10:PRINT"ExerSOS Utilities" 

Vt VPOS=24:HPOS=35:PRINT"(c> 1982 by Apple Computer"; 

49 1440 NORMAL : WINDOW 3,2 TO 21,23:HOME 

50 1450 FOR A-l TO 20 

51 1460 HP0S=2:VP0S=a+l:PRINT qw$(A);") ";N$ (A) ; :NEXT 

52 1470 WINDOW 24,2 TO 40,9:HOME 

53 1480 FOR A=23 TO 26 

54 1490 VPOS«a-21:HPOS=2: PRINT qw$(A);") ";N$(A):NEXT 

55 1500 WINDOW 43,2 TO 60,9:HOME 

56 1510 FOR A-27 TO 32 

57 1520 VPOS-a-23:HPOS-2: PRINT qw$(A);") ";N$(A):NEXT 

58 1530 WINDOW 63,2 TO 78,9:HOME W 

59 1540 FOR A=33 TO 37 

60 1550 VPOS=a-31:HPOS=2: PRINT qw$(A);") ";N$(A):NEXT 

61 1560 WINDOW 24,11 TO 78, 19:HOME:PRINT 

62 1570 FOR A=38 TO 41 

63 1580 HPOS=10:PRINT qw$(A);") ";N$(A):NEXT 

64 1590 WINDOW 24,21 TO 78,23:HOME 

65 1600 WINDOW 1,1 TO 80, 24 :PERFORM savescreen (%0) 

66 1610 REM — paint the secondary menu — 

67 1620 HOME 

11 INVERSE : WINDOW 1,1 TO 40, 21 : HOME: PRINT :HPOS=l 2 :PRINT"Input Parameters" 

69 1640 NORMAL : WINDOW 3,3 TO 38,20:HOME parameters 

7? \tll iSS5?? E ™JS° W - 39 ' 1 T ° 80 ' 21:H OME:PRINT:HPOS=12:PRINT"Output Parameters" 

71 1660 NORMAL : WINDOW 41,3 TO 78,20:HOME 

72 1670 WINDOW 1,1 TO 80,24 

73 1680 PERFORM savescreen (%1) 

74 1690 REM — paint the utilities screen — 

75 1700 NORMAL: HOME 

76 1710 WINDOW 1,1 TO 80, 21 : INVERSE: HOME 

77 1720 NORMAL : WINDOW 3,2 TO 78,20:HOME 
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78 


1730 


79 


1740 


80 


1750 


81 


1760 


82 


1770 


83 


1780 


84 


1790 


85 


1800 


86 


1810 


87 


1820 


88 


1830 


89 


1840 


90 


1850 


91 


1860 


92 


1870 


93 


1880 


94 


1890 


95 


1900 


96 


1910 


97 


1920 


98 


1930 


99 


1940 


100 


1950 


101 




102 




103 




104 


1960 


105 




106 


1970 


107 


1980 


108 


1990 


109 


2000 


110 


2010 


111 


2020 


112 


2030 


113 


2040 


114 


2050 


115 


2060 


116 


2070 


117 


2080 


118 


2090 


119 


2100 


120 


2110 


121 


2120 


122 


2130 


123 




124 


2140 


125 


2150 


126 


2160 


127 


2170 


128 


2180 


129 


2190 


130 


2200 


131 


2210 


132 


2220 


133 


2230 


134 


2240 


135 


2250 


136 


2260 


137 


2270 


138 


2280 


139 


2290 


140 


2300 


141 


2310 


142 


2320 


143 


2330 


144 


2340 


145 


2350 


146 


2360 


147 


2370 


148 


2380 


149 


2390 


150 


2400 


151 


2410 


152 


2420 


153 


2430 


154 


2440 



WINDOW 1,1 TO 80,24 

PERFORM savescreen (%2) : NORMAL: HOME: PRINT videon$ 

REM — get selection — 

TEXT: HOME: PERFORM restorescreen (%0) 

WINDOW 35,21 TO 78,23:HOME 

y«2:desc$="Enter selection (0 to EXIT) $" 

ON ERR GOTO 1770 

GOSUB 6920 

OFF ERR 

selection»-l :IF num=0 THEN 1870 

FOR i-1 TO 41: IF TEN (qw$ (i) ) -num THEN selection^ 
NEXT 

IF selection<0 OR selection>41 THEN 1770 
IF selection>0 THEN 1900 

TEXT:HOME:VPOS«12:HPOS«25:INPUT"Okay to Exit ExerSOS? ";a$ 
IF a$<>"Y" AND a$<>"y" THEN 1750 
PERFORM relbuffer: HOME: NEW: END 
REM — dispatch the calls — 
TEXT: HOME 

IF selection<38 THEN PERFORM restorescreen (%1) : ELSE PERFORM restorescreen (%?\ 

£™ E ;^° S ~ (80 " LEN (n$ (Action) ) ) /2 :PRINT n$ (••lecti^:S££ <%2> 
WINDOW 4,4 TO 37,20:VPOS=1 

ON selection GOTO 1980,2160,2210,2270,2540,2810,2890,2940,3010, 
3150, 3250, 3340, 3420, 3530, 3590, 3690, 3760, 3860, 
3930, 3980, 1770, 1770, 4040, 4240, 4400, 4460, 4690, 
4840,5040,5150,5270 

ON selection-31 GOTO 5360,5420,5480,5540,5730,5860,5960,5960, 
5960,5960 

GOTO 1750 

REM — CREATE call — 

y«l:desc$»"pathname" :GOSUB 6920:pathname$»string$ 
y=2 : min&=0 : max& =8 : desc$=" length" 
GOSUB 6920:length%=num 
IF length%-0 THEN 2130 

y=3:desc$«"file__type$":min&=0:max&=255 
GOSUB 6920:fileid%=num 
IF length%<3 THEN 2130 

y=4:desc$="aux_type H :min&=0:max&=65535 
GOSUB 6920:auxid%=num 
IF length%<4 THEN 2130 

y=5:desc$="storage_type [1 or $D]":GOSUB 6920: type%=num 
IF type%<>l AND type%<>13 THEN 2090 
IF length%<8 THEN 2130 

y=6:desc$«"EOF [0 . . . $00FFFFFF] ": GOSUB 6920:eof ile&=num& 
PERFORM soscreate(@pathname$,%length%,%fileid%, 
%auxid%, %type%, &eofile&) 

GOSUB 7250 
GOTO 7320 

REM — DESTROY call — 

y=l : desc$="pathname" : GOSUB 6920:pathname$=string$ 
PERFORM destroy (@pathname$) 
GOSUB 7250 
GOTO 7320 

REM — RENAME call — 

y^l : desc$=" pathname" : GOSUB 6920:pathname$=string$ 
y a »2 : desc$="new__pathname" : GOSUB 6920:newpath$=string$ 
PERFORM sosrename(@pathname$,@newpath$) 
GOSUB 7250 
GOTO 7320 

REM — Set_FILE_INFO call — 

y=l : desc$=" pathname" : GOSUB 6920:pathname$=string$ 

y=2 : min&-0 : max&=15 : desc$=" length" 

GOSUB 6920:length%=num 

IF length%~0 THEN 2510 

y»3 : min&=0 : max&=255 : desc$="access" 

GOSUB 6920:attrib%=num 

IF length%<2 THEN 2510 

y-4:min&«0:max&=255:desc$="file type" 

GOSUB 6920:fileid%=num 

IF length%<4 THEN 2510 

y-5 : min&=0 : max&=65535 : desc$="aux type" 

GOSUB 6920:auxid%=num ~ 

IF length%<15 THEN 2510 

y-6 : min&»0 : max&=99 : desc$-"year" 

GOSUB 6920:year%-num 

y=7 : min&-0 : max&-12 : desc$«"month" 

GOSUB 6920:month%=num 
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155 


2450 


156 


2460 


157 


2470 


158 


2480 


159 


2490 


160 


2500 


161 


2510 


162 




163 




164 


2520 


165 


2530 


166 


2540 


167 


2550 


168 


2560 


169 


2570 


170 


2580 


171 




172 




173 


2590 


174 


2600 


175 


2610 


176 


2620 


177 


2630 


178 


2640 


179 


2650 


180 


2660 


181 


2670 


182 


2680 


183 


2690 


184 


2700 


185 


2710 


186 


2720 


187 


2730 


188 


2740 


189 


2750 


190 


2760 


191 


2770 


192 


2780 


193 


2790 


194 


2800 


195 


2810 


196 


2820 


197 


2830 


198 


2840 


199 


2850 


200 


2860 


201 


2870 


202 


2880 


203 


2890 


204 


2 900 


205 


2910 


206 


2920 


207 


2930 


208 


2940 


209 


2950 


210 


2960 


211 


2970 


212 


2980 


213 


2990 


214 


3000 


215 


3010 


216 


3020 


217 


3030 


218 


3040 


219 


3050 


220 


3060 


221 


3070 


222 


3080 


223 


3090 


224 


3100 


225 


3110 


226 


3120 


227 


3130 


228 


3140 


229 


3150 


230 


3160 


231 


3170 



y-8:min&==0:max&-31 :desc$»"date" 
GOSUB 6920:date%«num 
y»9 : min&-0 :max&«24 : desc$~"hour " 
GOSUB 6920:hour%«num 
y«10:min&=0:max&=60:desc$=" minute" 
GOSUB 6920:minute%«num 

PERFORM setf ileinfo (@pathname$, %length%, %attrib%, %f ileid% f 
%auxid%, %year%, %month%, %date%, %hour%, 
%minute%) 

GOSUB 7250 
GOTO 7320 

REM — Get_F I LE_INFO call — 

y**l : desc$= "pathname" : GOSUB 6920:pathname$=string$ 
y-2 : min&-0 : max&«15 : desc$«" length" 
GOSUB 6920:length%=num 

PERFORM getfileinfo(@pathname$,%length%, @attrib%, @f ileid%, 

@auxid%, @type%, @eofile&, @blocks% r @year%, 
@month% , @date% , @hour% , @minute% ) 

GOSUB 7250 

IF length%=0 THEN 2800 
desc$="access" :num=attrib% : GOSUB 7160 
IF length%<2 THEN 2800 

desc$="file__type":num=fileid%: GOSUB 7160 
IF length%<4 THEN 2800 

desc$«"aux_type" :IF type%=15 THEN desc$«"num blocks" 
num=auxid% : GOSUB 7160 
IF length%<5 THEN 2800 

desc$«"storage_type" :num»type% : GOSUB 7160 
IF length%<9 THEN 2800 

desc$«"EOF":num&«eofile&:num-CONV(eofile&) : GOSUB 7160 
IF length%<ll THEN 2800 

desc$-"blocks_used" : num=blocks% : GOSUB 71 60 
IF length%<15 THEN 2800 
PRINT" la st_mod" 

desc$=" year" :num=year%: GOSUB 7160 
desc$«" month" :num«month%: GOSUB 7160 
desc$=" date" : num=date% : GOSUB 71 60 
desc$=" hour" :num=hour%: GOSUB 7160 
desc$~" minute" :num»minute%: GOSUB 7160 
GOTO 7320 

REM — VOLUME call — 

y=l:desc$="dev_name" : GOSUB 6920: devname$«string$ 
PERFORM volume (@devname$, @volname$, @totblks% , @f reeblks%) 
GOSUB 7250 

PRINT" vol_name - ";volname$ 

desc$«="total_blocks" :num=totblks% : GOSUB 7160 
desc$="free__blocks":num=freeblks%: GOSUB 7160 
GOTO 7320 

REM -- Set_PREFIX call ~ 

y=l :desc$= "pat hname ": GOSUB 6920:pathname$=string$ 
PERFORM setprefix(@pathname$) 
GOSUB 7250 
GOTO 7320 

REM — GetJPREFIX call — 

y-1 : min&=0 : max&-255 : desc$="length" 

GOSUB 6920:length%»num 

PERFORM getprefix(@pathname$, %length%) 

GOSUB 7250 

PRINT"pathname - ";pathname$ 
GOTO 7320 

REM — OPEN call — 

y=l : desc$="pathname" : GOSUB 6 920: pathname $*st ring $ 

y=2 : min&«0 : max&=l : desc$»"length" 

GOSUB 6920:length%=num 

IF length%=0 THEN 3080 

y=3:min&=0:max&»3:desc$="req_access" 

GOSUB 6920:access%=num 

PERFORM sosopen (@pathname$ , %length% f %access%, @refnum%) 
GOSUB 7250 

desc$="ref_num" : num=ref num% : GOSUB 71 60 
index=ref num% : IF index>16 THEN index=index-lll 
PERFORM getlevel (@level%) 

ref (index) =ref num% :path$ (index) =pathname$ : lev (index) =level% 
GOTO 7320 

REM — NEW_LINE call — 

y - 1 : mi n & =0 : max & ~255:desc$=" r e f _num" 

GOSUB 6920: ref num%=num 
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232 


3180 


233 


3190 


234 


3200 


235 


3210 


236 


3220 


237 


3230 


238 


3240 


239 


3250 


240 


3260 


241 


3270 


242 


3280 


243 


3290 


244 


3300 


245 


3310 


246 


3320 


247 


3330 


248 


3340 


249 


3350 


250 


3360 


251 


3370 


252 


3380 


253 


3390 


254 


3400 


255 


3410 


256 


3420 


257 


3430 


258 


3440 


259 


3450 


260 


3460 


261 


3470 


262 


3480 


2 63 


3490 


264 


3500 


265 


3510 


266 


3520 


267 


3530 


268 


3540 


269 


3550 


270 


3560 


271 


3570 


272 


3580 


273 


3590 


274 


3600 


275 


3610 


276 


3620 


277 


3630 


278 


3640 


279 


3650 


280 


3660 


281 


3670 


282 


3680 


283 


3690 


284 


3700 


285 


3710 


286 


3720 


287 


3730 


288 


3740 


289 


3750 


290 


3760 


291 


3770 


292 


3780 


2 93 


3790 


294 


3800 


295 


3810 


296 


3820 


297 


3830 


298 


3840 


299 


3850 


300 


3860 


301 


3870 


302 


3880 


303 


3890 


304 


3900 


305 


3910 


306 


3920 


307 


3930 


308 


3940 



y=2 : min & =0 : max & =2 5 5 : de s c $= " i s__newl ine " 
GOSUB 6920:isnew%«num 

y«3:min&=0:max&==255:desc$-"newline char" 
GOSUB 6920:newchar%=num "~ 
PERFORM newline (%refnum%, %isnew%, %newchar%) 
GOSUB 7250 
GOTO 7320 

REM — READ call — 

y=»l : min&-0 : max&«255 : desc$="ref num" 

GOSUB 6920:refnum%=num 

y=2:min&=0:max&=16384:desc$="request count" 
GOSUB 6920:bytes%-num "~ 
PERFORM sosread ( %ref num% , %bytes% , @bytesread% ) 
GOSUB 7250 

desc$«"transfer count" :num=bytesread% : GOSUB 7160 
GOTO 7320 

REM — WRITE call — 

y»l : min&«0 : max&«255 : desc$»"ref num" 

GOSUB 6920:refnum%=num ~ 

y*2 : min & «0 : max 1 6 3 8 4 : de sc $= " reque st count " 

GOSUB 6920:bytes%«num ~ 

PERFORM soswrite (%refnum%, %bytes%) 

GOSUB 7250 

GOTO 7320 

REM — CLOSE call — 

y=l :min&=0:max&=255:desc$="ref num" 

GOSUB 6920:refnum%=num ~" 

PERFORM sosclose (%refnum%) 

GOSUB 7250 

IF refnum%>16 THEN refnum%*ref num%-lll 

IF refnum%<>0 THEN ref (refnum%) =0:GOTO 3520 

PERFORM getlevel (@level%) 

FOR a-1 TO 40: IF lev (a) >=level% THEN ref(a)=0 

NEXT 
GOTO 7320 

REM — FLUSH call — 

y-1 : min&=0 : max&=255 : desc$="ref num" 

GOSUB 6920 :refnum% -num ~" 

PERFORM flush (%refnum%) 

GOSUB 7250 

GOTO 7320 

REM — Set_MARK call — 

y=l :min&=0:max&-255:desc$-"ref num" 

GOSUB 6920:refnum%=num ~ 

y=2:min&=0:max&»3:desc$*"base" 

GOSUB 6920:base%=num 

y«3 : desc$»"displacement" 

GOSUB 6920:displacement&=num& 

PERFORM setmark (%refnum%, %base%, &displacement&) 
GOSUB 7250 
GOTO 7320 

REM ~ Get_MARK call — 
y=l : min&=0 : max&=255 : desc$="ref num" 
GOSUB 6920:refnum%=num ~ 
PERFORM getmark(%refnum%,@ mark&) 
GOSUB 7250 

desc$="mark" :num&=mark& :num=CONV(mark&) : GOSUB 7160 
GOTO 7320 

REM — Set_EOF call — 

y=l :min&=0:max&=255:desc$="ref num" 

GOSUB 6920:refnum%=num ~ 

y»2 : min&»0 : max&-3 : desc$="base" 

GOSUB 6920:base%=num 

y=3 : desc$="displacement" 

GOSUB 6920:displacement&=num& 

PERFORM seteof (%refnum%, %base%, & displacements) 
GOSUB 7250 
GOTO 7320 

REM — Get_EOF call — 
y=l : min&»0:max&=255 : desc$="ref num" 
GOSUB 6920:refnum%=num ~ 
PERFORM geteof (%refnum%, @eof ile&) 
GOSUB 7250 

desc$="EOF":num&»eodkle$8num?COLT(eofile$) :EOSU@ 7160 
GOTO 7320 

REM — Set_LEVEL call — 

y=l : desc$="level " : GOSUB 6920 : level%?nuo 
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A 


309 


3970 


PERDORO"setlevgl (%level%) 




310 


3960 


GOSUB 7250 




311 


3970 


GOTO 7320 




312 


3980 


REM — Get LEVEL call — 




313 


3990 


PRINT" [None]" 




314 


4000 


PERFORM get level (@level%) 




315 


4010 


GOSUB 7250 




316 


4020 


de sc $- " 1 evel " : num=le ve 1 % : GOS UB 7160 




317 


4030 


GOTO 7320 




318 


4040 


REM — D_STATUS call — 




319 


4050 


y«l:min&=0:max&-255:desc$="dev num" 




320 


4060 


GOSUB 6920:refnum%=num 




321 


4070 


y=2:min&~0:max&»=255:desc$= "dstatus call": GOSUB 4280: 




322 




GOSUB 6920:code%=num ~ 




323 


4090 


first%=255 




324 


4100 


min&«0:max&=0:y*3:desc$«"Initialize Buffer [Y or N] " 




325 


6310 


GOSUB" 4922: a$-PIGHT$ (string$ , 1 ) 




326 


4120 


IF a$-"Y" OR a$-"y" THEN init%«l:ELSE init%=0 




327 


4130 


PERFORM dstatus (%devnum% , %code%, %f irst%, %init%, @devlist$) 




328 


4140 


GOSUB 7250 




329 


4150 


y-3:desc$»"Amount of keyboard output ": GOSUB 6920:length%=num 




330 


4160 


IF length%>255 THEN 4150 




331 


4170 


IF length%=0 THEN 4230 




332 


4180 


WINDOW 42,8 TO 78,20:HOME 




333 


4190 


FOR a=l TO length% 




334 


4200 


CONV% (ascii) : GOSUB 7160 




335 


4220 


NEXT 




336 


4230 


GOTO 7320 




337 


4240 


REO" — F_COLTRML ccnl — 




338 


6050 


y=l :min&=0:max&=255:desc$="dev num" 




339 


4260 


GOSUB 6920:refnum%=num 




340 


4270 


y»2 : min&»0 :max&=255 : desc$="control code" 




341 


4280 


GOSUB 6920: code %=num 




342 


4290 


y«3:min&=0:max&=255:desc$="length of input" 




343 


4300 


GOSUB 6920 : length%=num 




344 


4310 


IF length%=0 THEN 4370 




345 


4320 


devlist$=" " 




346 


4330 


FOR a=l TO length%:y=*a+4:IF y>24 THEN y-24 




347 


4340 


min&=0:maz$=257:dgqc$="byve #"+STP$ (a+ 




348 


4350 


GOSUB 6920:devlist$=devlist$+CHR$ (num) 




349 


4360 


NEXT 




350 


4370 


PERFORM dcontrol (%devnum%, %aodg%, @dgvliqt$ . • le7250 




351 


4390 


GOTO 7320 




352 


4400 


REM — Get DEV NUM call — 




353 


4410 


y=l :desc$="dev_name" : GOSUB 6920: devname$=string$ 




354 


4420 


PERFORM get devnum ( @ devname $ , @ devnum% ) 




355 


4430 


GOSUB 7250 




356 


4440 


desc$="dev num" : num=devnum% : GOSUB 7160 




357 


4450 


GOTO 7320 




358 


4460 


REM — D_INFO call — 




359 


4470 


y«l:min&=0:max&=24 :desc$="dev num" 




360 


4480 


GOSUB 6920:devnum%=num 




361 


4490 


y=2 : min&-0 : max&=l 1 : desc$=" length" 




362 


4500 


GOSUB 6920:length%=num 




363 


4510 


PERFORM dinfo (%devnum% , @devname$, %length%, @slotnum%, 




364 




@unitnum%, 6devtype%, @devsub%, @blocks% f 




365 




Qmanuf %, @vernum%) 




366 


4520 


GOSUB 7250 




367 


4530 


PRINT "dev name = ";devname$ 




368 


4540 


IF length%<l THEN 4680 




369 


4550 


desc$="slot num" :num=slotnum% : GOSUB 7160 




370 


4560 


IF length%<2 THEN 4680 




371 


4570 


desc$*"unit num" :num=unitnum% : GOSUB 7160 




372 


4580 


IF length%<4 THEN 4680 




373 


4590 


desc$-"dev type" :num=devtype% : GOSUB 7160 




374 


4 600 


IF length%<6 THEN 4680 

desc$»"sub type" :num=devsub% : GOSUB 7160 




375 


4610 




376 


4620 


IF length%<8 THEN 4680 




377 


4630 


desc$="total blocks" :num=blocks% : GOSUB 7160 




378 


4640 


IF length%<10 THEN 4 680 




379 


4650 


desc$="manuf id" :num=manuf%: GOSUB 7160 




380 


4 660 


IF length%<ll THEN 4 680 




381 


4670 


desc$»"version num" :num=vernum% : GOSUB 7160 




382 


4680 


GOTO 7320 




383 


4690 


REM — REQUEST SEG call — 




384 


4700 


y=l:desc$-"base bank" 




385 


4710 


GOSUB 6920:basebk%=num 


J 
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386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

4 05 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 



4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
4800 

4810 
4820 
4830 
4840 
4850 
4860 
4870 
4880 
4890 
4900 
4910 

4 920 
4 930 

4940 
4950 
4960 
4970 
4980 
4990 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 

5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 
5290 
5300 
5310 
5320 
5330 
5340 
5350 
5360 
5370 
5380 
5390 
5400 
5410 
5420 
5430 
5440 



y=2:desc$»"base page" 

GOSUB 6920:basepg%=num 

y«3:desc$-"limit bank" 

GOSUB 6920: limit bk%»num 

y~4 :desc$="limit page" 

GOSUB 6920: limit pg%=num 

y=5 : min&=0 : max&=255 : desc$="seg id" 

GOSUB 6920:segid%«num 

PERFORM reqseg(%basebk%, %basepg%, %limitbk%, 
%limitpg%, %segid%, @segnum%) 

GOSUB 7250 

desc$»" seg_num" : num=segnum% : GOSUB 71 60 
GOTO 7320 

REM — FIND_SEG call — 
y«l:min&»0:max&»255:desc$~" search mode" 
GOSUB 6920:mode%=num 
y=2:min&=0:max&=255:desc$="seg id" 
GOSUB 6920:segid%«num 
y=3 : min&=0 : max&=65535 : desc$="pages " 
GOSUB 6920:page%=num 

PERFORM f indseg (%mode%, %segid% r @page%, @basebk%, 6basepg%, 

@limitbk%, @limitpg%, @segnum%) 
PERFORM geterror (@error%) 

IF error%<>225 THEN GOSUB 7250:GOTO 4970: 
REM spcl case for SEGRQDN 
WINDOW 42,4 TO 78,20:HOME 
PRINT"SOS Error Code - ";:HPOS=23 
PRINT RIGHT$ (HEX$ (ERROR%) , 2) : PRINT 
desc$«"pages " : num=page% : GOSUB 71 60 
desc$="base bank" :num=basebk% : GOSUB 7160 
desc$="base page" :num=basepg%: GOSUB 7160 
desc$-"limit bank" :num=limitbk% : GOSUB 7160 
desc$-"limit page" :num==limitpg% : GOSUB 7160 
desc$»"seg num" : num=segnum% : GOSUB 7160 
GOTO 7320 

REM — CHANGE_SEG call — 

y=l : min&=0 : max&=255 : desc$»" seg_num" 

GOSUB 6920:segnum%«num 

y=2:min&=0:max&=255:desc$«"change mode" 
GOSUB 6920:mode%=num ~ 
y»3 : min&=0 :max&«65535 : desc$=«"pages " 
GOSUB 6920:page%=num 

PERFORM changeseg(%segnum%, %mode% f @page%) 
GOSUB 7250 

de s c $= " page s " : num=pa ge%:GOSUB 7160 
GOTO 7320 

REM — Get_SEG_I NFO call — 

y«l : min&=0 : max&=255 : desc$="seg__num" 

GOSUB 6920:segnum%=num 

PERFORM getseginfo (%segnum%, @basebk%, @basepg%, 

@limitbk%, @limitpg%, @page%, @segid%) 

GOSUB 7250 

desc$="base bank" :num»basebk%: GOSUB 7160 
desc$="base page" :num=basepg% : GOSUB 7160 
desc$="limit bank" :num=limitbk% : GOSUB 7160 
desc$-"limit page" :num=limitpg% : GOSUB 7160 
desc$-"pages" :num= s page% : GOSUB 7160 
desc$»"seg_id" :num=segid%: GOSUB 7160 
GOTO 7320 

REM — Get_SEG_NUM call — 
y«l:desc$="seg bank" 
GOSUB 6920:segbk%«num 
y-2:desc$="seg page" 
GOSUB 6920:segpg%=num 

PERFORM getsegnum(%segbk%, %segpg%, @segnum%) 
GOSUB 7250 

desc$-" seg_num" : num=segnum% : GOSUB 71 60 
GOTO 7320 

REM — RELEASE__SEG call — 
y=l:min&«0:max&*255:desc$="seg num" 
GOSUB 6920:segnum%=num 
PERFORM relseg (%segnum%) 
GOSUB 7250 
GOTO 7320 

REM — Set_FENCE call — 

y=l : min&«0 : max&=255 : desc$«"f ence" 

GOSUB 6920:priority%=num 
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4 K)o 


c A tint 
0400 


PERFORM setf ence (%priority%) 




AC A 
fi Oft 


4 D0 


GOSUB 7250 




/ire 
4 DJ 


o4 70 


GOTO 7320 




4 66 


O *J OJt» 


KtjM — (jet i fciNCE call — 




ft O / 


04 y0 


print [None] " 




ft DO 


OOk/k7 


FhiRFORM getrence (@prionty%) 




469 


JOXJc/ 


riTiQnta T><z.tA 

vtVJOUd /ZO0 




4 / u 


OOZ0 


desc$= "fence" :num=priority%: GOSUB 7160 




471 
ft I X 


c; ^ 

OOOlcS 


GUIU / oZfO 




/I "7 O 
4 /Z 


c c a m 
0040 


REM — Set__TIME call — 




ft / j 


OOO0 


y=l :min& ass 1980:max& ass 9999:desc$ aa! "year" :G0SUB 6920 




AHA 
4 1 4 


OOD0 


tyme$»RIGHT$ ("0000"+STR$ (num) , 4) 




4 7 R 
ft / O 


OO /J0 


y sa 2 :min&=0:max&= a 12 :desc$* B "month" : GOSUB 6920 




/I T C 


0080 


tyme$=tyme$+RIGHT$ ("0000"+STR$ (num) , 2) 




4 77 
ft 1 I 


ooy0 


y aB 3:min&= ! 0:max& i »31 :desc$= H date" : GOSUB 6920 




A 1 O 

4 /o 


5600 


tyme$-tyme$+RIGHT$ ("0000"+STR$ (num) f 2) 




479 


5610 


tyme$-tyme$+STR$ (000) 




480 


5620 


y-5 : min&»0 : max&=23 : desc$-"hour" : GOSUB 6920 




481 


5630 


tyme$«tyme$+RIGHT$ ("0000"+STR$ (num) , 2) 




4 82 


5640 


y s =6:min&«=0:max&=59 :desc$ a »"minute" : GOSUB 6920 




4 Q "3 
ft OJ 


O OO0 


tyme$=tyme$+RIGHT$ ("0000"+STR$ (num) , 2) 




484 


5660 


y»7 : min&=0 : max&=59 : desc$=" second" : GOSUB 6920 




4 P Ci 

ft oo 


O O / 


tyme$=tyme$+RIGHT$ ("0000"+STR$ (num) , 2) 




A Q C 
ft O 


OOO0 


y=8 :min&=0:max&=999: desc$="microsecond" : GOSUB 6920 




& ft7 
ft O / 


s car* 
o oy0 


tyme$«tyme$+RIGHT$ ("0000"+STR$ (num) , 3) 




4 Aft 
ft OO 


O /JC/J0 


PERFORM settime(@tyme$) 




ft O J 


^71 0J 
O / XJ0 


bUoUo /ZO0 






O /Z0 


GUIO /OZ0 




ft :*X 


O / OJ0 


K£jM — Get time call — 




*± y z 


c; n a t% 
/ 40 


PRINT [None] " 




/I Q O 


5750 


PERFORM gettime (@tyme$) 




A QA 

h. y4 


O / D0 


GOSUB 7250 




ft y o 


c; "7 Toe 
/ /0 


desc$="year" :num«VAL (MID$ (tyme$, 1, 4) ) :G0SUB 7160 




Add 

fi y d 


/ 80 


desc$="month" :num=VAL (MID$ (tyme$, 5, 2) ) : GOSUB 7160 




4 Q7 


^7 Qtfl 
O / yjc/ 


desc$= t "date" mum^VAL (MID$ (tyme$, 1, 2) ) : GOSUB 7160 




4 98 


5800 


desc$="day of week" :num«VAL(MID$ (tyme$ r 9, 1) ) :G0SUB 7160 
desc$="hour" :num»VAL (MID$ (tyme$, 10, 2) ) :G0SUB 7160 




ft yy 


Oox0 




ouu 


Ooz0 


desc$ ais "minute ,, rnum^VAL (MID$ (tyme$ r 12 , 2) ) : GOSUB 7160 








desc$»"second" znum^VAL (MID$ (tyme$, 14 , 2) ) :G0SUB 7160 




o uz 


Oo40 


desc$=*"microsecond" :num=VAL (MID$ (tyme$, 16) ): GOSUB 7160 




t% O "3 

o uo 


OoO0 


GOTO 7320 




JUS 


O O O10 


KEM — Get_ANALOG Call — 




O UO 


Oo / 


y-l :min&=0:max& s =255:desc$ a »" joy mode" 




JUD 


OOOItJ 


GUoUn ©yz0 : jmoae^^num 




507 


o o y 10 


pekt okm joystick (% jmode%, @jvall%, @ jval2%, @ jval3%, @ jval4%) 




508 




WOUB /ZOI6' 




509 


5910 


HoQr^ac" ,TCn —VX " • nnm l lr a 111. r'AOTTD 11 Cffl 

uest,^* y&n o . num— jvaii* . bUoub /lt>0 




510 


J y Zlc' 


aesci? a Jon- bw .num^^valz GOSUB 7160 




M 1 


o 


aescb* 8 JSn-X :num= ! jval3%: GOSUB 7160 




512 


5940 


desc$="JSn-Y":num=jval4%: GOSUB 7160 




Old 


5950 


GOTO 7320 




O X ft 


o y d0 


REM — ExerSOS utility dispatcher — 




OlO 


o y / 


WINDOW o,3 TO 76, 19: HOME 




olo 


5980 


ON selection-37 GOTO 5990,6060,6170,6320 




ol / 


5990 


REM — CATALOG utility — 




c; i o 
oio 


/- r*.fl(rA 
V>\0\O\O 


HPOS*=25 : y»l : desc$="Directory Pathname" 






K>\Ox\Q 


GOSUB 6920 : pathname$=string$ : PRINT 




520 


Oi0ZK/ 


ON ERR OFF ERR:HPOS=25 : PRINT "Device/Pathname Not Found" :G0T0 7320 




O Z X 


O0OZ 


KD LGL (pcthncoe$+?0 VHEN AATALOG : ELSE CATALOG pathname$ 




COO 

ozz 




/•SI.' L» TT«Tir> 

Ot £ ERR 






Dk30fcy 


PKINIIGOIO loZid 




OZ ft 


K>\OK>\0 


REM — Display File Vable"utklit { ~ 




525 


6270 


nrvy-a.s.rf\i«j. r\.exnum , .flJrvJo— olcJ.rKXWl Fatnname / 




526 


Dic/Olc? 


HDOQ~t» C . DDTKITi'T ^. _. in. noT XTT» 
xlirVJo^OO . FKXW 1 LSVel If K1N1 




^97 
»JZ / 




=,—(71 

a— 




528 


D X It/ It/ 


r uk rexnum— x iu 40 




529 


6110 


IF ref (ref num) -0 THEN 6140 




530 


6120 


HP0S=17:PRINT ref (ref num) ; :HPOS=30: PRINT path$ (ref num) ; 




531 


6130 


HPOS=57:PRINT lev (ref num) : a=l 




532 


6140 


NEXT 




533 


6150 


IF a=0 THEN HP0S=31 : PRINT" [None] " 




534 


6160 


PRINT: GOTO 7320 




535 


6170 


REM /- Dksplcy Acvivg Memory"Qegoents — 




536 


6180 


HP0S=5:PRINT"Seg Num Base Address Limit Address"; 




537 


6190 


PRINT" Pages ""See ID"8PRKNT 




538 


6202 


DOR segnum%=l TO 30 




539 


6210 


PERFORM getseginfo (%segnum%, @basebk%, @basepg%, @limitbk%, 


J 
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540 


6220 


@limitpg%, @page%, 6segid%) 






541 


PERFORM geterror (@error%) : IF error%<>0 THEN 6300 






542 


6230 


HPOS-7 :PRINT"$";RIGHT$ (HEX$ (segnum%) ,2) ; 






543 


6240 


HP0S«19:PRINT"$";RIGHT$ (HEX$ (basebk%) , 2) ; 






A A 

044 


6250 


HPOS-24 : PRINT" $"; RIGHT$ (HEX$ (basepg%) ,2) ; 






545 


6260 


HPOS-37 : PRINT" $" ; RIGHT$ (HGX$ (nimkvbk • ) , 2 ) 9 






546 


4270 


HPOS-43 : PRINT" $" ; RIGHT$ (HEX$ (limit pg% ) , 2 ) ; 






547 


6280 


HPOS-57 :PRINT"$";RIGHT$ (HEX$ (page%) , 2) ; 






548 


6290 


HPOS=67:RPINV"$";RIGHT$ (HEX$ (segid%) ,2) 






549 


6300 


NEXT 






550 


6310 


GOTO 7320 






ool 


6320 


REM — Display /Edit Contents of 10 Buffer — 






552 


6330 


HPOS-25 : y=l : desc$»"Page Number" : min&-0 : max&=63 






553 


6340 


GOSUB 6920 :pagenum%=num: HOME 






554 


6350 


PERFORM di splaybuf f er ( @part 1 $ , @part 2 $ , %pagenum% ) 






555 


6360 


bufptr=0:n$-partl$: GOSUB 6720 






556 


6370 


n$»*part2 $ : GOSUB 6720 






557 


6380 


WINDOW 1,22 TO 80, 24 : VPOS=0:HRMS*6 






558 


6190 


PRKLT"<ESC>"to Exit, <arrow-keys> to move cursor, 






559 




<value-RETURN> to alter data" 






560 


6400 


WINDOW 5,3 TO 76,19 






561 


6410 


x*18y«381aqvx=3 : laqvxx?3 : lasty-1 :was$=" " 






562 


6420 


REM — Editor — 






563 


6430 


VPOS=lasty:HPOS=lastxx: PRINT" "; :HPOS=lastxx+3 : PRINT" "; 






564 


6440 


HPOS=52+lastx: PRINT was$; 






5 65 


6450 


xx=(x-l) *3+l:z=x+( (y-l)*16) 

VPOS=y:HPOS=xx: PRINT" ["; :HP0S-xx+3 : PRINT " ] "; 






Odd 


o4o0 






DO f 


6470 


is$=buffer$ (z) :IF ASC(is$)<32 THEN is$»"." 






O DO 


6480 


HPOS-52+x: INVERSE: PRINT is$; : NORMAL 






ceo 


6490 


la st x*x : la st xx=xx : la st y«y : wa s $ =i s $ 






570 


6500 


REM - get a byte - 






571 


6510 


GET a$:a«ASC(a$) 






572 


6520 


IF a=escape THEN HPOS=xx: PRINT" "; :HPOS=xx+3 :PRINT" "; : 






573 




HPOS-52+lastx: PRINT was$;:GOTO 7320 






574 


6530 


IF INSTR("0123456789ABCDEFabcdef ",a$)<>0 THEN 6600 






575 


6540 


IF INSTR(arrows$,a$)»0 THEN PRINT bell$; :G0T0 6500 






576 


6550 


IF a»uparrow THEN y=y-l:IF y<l THEN y»16 






577 


6560 


IF a=downarrow THEN y=y+l:IF y>16 THEN y=l 






o / o 


6570 


IF a=leftarrow THEN x=x-l:IF x<l THEN x-16 :y=y-l : IF y<l THEN y= 


=16 


O 1 9 


6580 


IF a=right arrow THEN x=x+l:IF x>16 THEN x-1 :y-y+l : IF y>16 


THEN 


y=l 


OoU 


ooy0 


GOTO 6420 






581 


6600 


REM - prep for user input - 






582 


6610 


lo$=a$:xx=xx+l:old$=buffer$ (z) 






583 


6620 


old$=RIGHT$ (HEX$ (ASC (old$) > , 2) 






584 


6630 


hi$=LEFT$(old$,l) 






585 


6640 


REM - value input - 






c o c 

ooo 


6650 


HPOS=xx:PRINT hi$;lo$; 






COT 

Oo 1 


cccrx 
OOO0 


GET a$:a=ASC(a$) 






COD 

Ooo 


o o /0 


IF a-escape THEN HPOS=xx:PRINT old$; :GOTO 6420 






oyy 


c c o m 

OOO0 


IF a=retrn THEN GOSUB 6820: GOTO 6420 






con 

o y U 


6690 


IF INSTR("0123456789ABCDEFabcdef ",a$)=0 THEN PRINT bell$; : 


GOTO 


6640 j 


591 


6700 


hi$=lo$: lo$=a$ 






592 


6710 


GOTO 6640 






oyj 


6720 


REM - display half of buffer - 






o y 4 


6730 


pt r=0 






595 


6740 


FOR a=l TO 8:x$»"" :HPOS=2 






o y d 


O /O0 


FOR b=l TO 16:ptr=ptr+l 






597 


6760 


n=ASC(MID$ (n$,ptr,l) ) 






oy© 


6770 


bufptr=bufptr+l:buffer$ (bufptr) =CHR$ (n) 






o y y 


£ "7 0/5C 
/O0 


PRINT RIGHT$(HEX$(n) ,2);" "; 






ouu 


D / yic? 


IF n>31 THEN x$=x$+CHR$ (n) :ELSE x$=x$+"." 






601 


6800 


NEXT: PRINT" ";x$ 






602 


6810 


NEXT: RETURN 






oUo 


oo^0 


REM - calc value & update - 






OU4 


DO J0 


a=TEN(hi$+lo$) :a$=CHR$ (a) :buf f er$ (z) =a$ 






CAR 
DUO 


oo40 


IF z>128 THEN z=z-128 






606 


6850 


IF y<9 THEN n$-partl$ : ELSE n$=part2$ 






607 


6860 


IF z>l THEN 1$=LEFT$ (n$, z-1) :ELSE 1$="" 






608 


6870 


IF z<>128 THEN r$=RIGHT$ (n$, 128-z) :ELSE r$="" 






609 


6880 


IF y<9 THEN partl$=l$+a$+r$ :ELSE part2$-l$+a$+r$ 






610 


6890 


PERFORM replacebuf f er (@partl$, @part2$, %pagenum%) 






611 


6900 


IF a<32 THEN was$»" . " :ELSE was$=a$ 






612 


6910 


RETURN 






613 


6920 


REM — input a numeric or string value — 
VPOS=y:hx-0:IF RIGHT$ (desc$, 1) »"$" THEN hx=l : 






614 


6930 






615 




desc$=LEFT$ (desc$, LEN (desc$) -1) 






616 


6940 


PRINT desc$; 




J 
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61 7 


6 

D y Ok? 


61 ft 




61 Q 


d y dw 


D^U 




691 


oy /Ic/ 


£99 
DZZ 


oy oS9 


69*5 
OZo 


d y yjo 




7000 


DZO 


"1/5(1 /9t 


O Z O 


/0Z0 


6 9 7 




6 9 Q 


/0fl0 


69 Q 


T /TIC /T( 

/ 0O0 


con 


i\Dx>Yj 


611 


noun a\ 


6 10 
OOZ 


/0o0 


633 




614 


7 1 OifA 


635 


1 X XVJ 


636 


71 901 


637 


71 101 


61ft 


7 1 d OH 


61Q 

DO? 


7 1 R/5f 

/ lOjd 


64n 

D fl U 


71 Cfl( 
/ 1 00 


641 
D fl Jl 


7 1 70< 
/ J. /0 


6 4 9 
D 4Z 


7 1 Q/3t 

/ 180 


641 


7 1 

/ jl yw 


6 4 4 
D fi f4 


7 0/5(/5t 
/ Z00 


6 4 R 


T)1 fl( 

/Z10 


D H D 


/ ZZ0 


64 7 
O fj / 


7 9 1/51 
/ Zo0 


64ft 
D H O 


7 9 ^ /9f 
/ Z40 


64 Q 

D 1 y 


1 ZO10 


6sn 


7 9 601 
/ Z OicJ 


651 


79701 

/ Z 1 Kf 


6S9 


7 9ft01 


653 


79Q01 


6^4 


/ .3)00 


655 


7 11 01 


6^6 
DO O 


/ .3Z0 


657 


7330 


658 


7340 


659 


7350 


660 


7360 


661 


7370 


662 


7380 


663 


7390 


664 




665 


FINIS 


666 





IF hx=0 AND CONV(min&<>0 OR max&<>0) THEN 

PRINT" [";min&;" ... ";max&;"]"; 

IF hx-1 AND CONV(min&<>0 OR max&<>0) THEN 

PRINT" [";HEX$(CONV(min&));" ... ";HEX$ (C0NV(max&) ) ; "] "; 

IF hx THEN INPUT" - $"; string$ :ELSE INPUT" - ";string$ 

IF string$-"\" THEN POP :min&=0: max &=0: GOTO 1750 

lstr»LEN(string$) : IF lstr=0 THEN 6930 

IF RIGHT$(string$,l)<>" " THEN 7030 

IF lstr=l THEN 6930 

string$=LEFT$ (string$, lstr-1) :G0T0 6990 
num&=C0NV& (VAL (string$) ) 

IF NOT((LEFT$(string$,l)-"$") 0R(hx=l)) THEN 7100 

IF LEFT$(string$, 1)-"$" THEN string$=RIGHT$ (string$, lstr-1) 

num&=CONV& (TEN (string$) ) 

IF num&<0 THEN num&=65536+num& 

IF lstr<=4 THEN 7100 

num&=num&+ (C0NV& (TEN (LEFT$ (string$,LEN (string$) -4) ) * 65536) ) 
IF num&<65536 THEN num-CONV (num&) :ELSE num=0 
IF num>32767 THEN num= (num-65536) 
IF min&«0 AND max&»0 THEN RETURN 

IF num&<min& OR num&>max& THEN VPOS«y:PRINT clrline$ :GOTO 6920 

min&=0:max&=0 

RETURN 

REM — output a value with its description & hex value — 

IF num<1000000 THEN num&=C0NV& (num) :REM [ else num& has been loaded ] 

PRINT desc$;" - "; :HP0S=17 

IF num&<0 THEN num&=num&+65536 

PRINT USING" 8# " ; num& ; :HPOS=28 :PRINT"$" ; 

numl&=num& MOD 65536 

IF num&>65535 THEN PRINT HEX$ (CONV ( (num&-numl& ) /65536) ) ; 

PRINT HEX$(CONV(numl&) ) 

RETURN 

REM — error handler — 
WINDOW 42,4 TO 78,20:HOME 
ERROR%=0 

PERFORM geterror (@error%) 
PRINT"SOS Error Code - ";:HP0S«23 
PRINT RIGHT $ (HEX$ (error%) , 2) : PRINT 
IF error%«0 THEN RETURN: ELSE POP 

REM — see if he's done, if so, back to main menu — 

WINDOW 1,22 TO 80,24:HOME 

HPOS=12:VPOS=2 

PRINT"Enter <ESC> to return to Main Menu, <Any Key> to continue" 
GET a$:HOME 

IF a$«CHR$ (escape) THEN 1750 
WINDOW 42,4 TO 78, 20: HOME 
TEXT : GOTO 1940 
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